home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / listing 3.sprite (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  241b  |  17 lines
  1. 200 v=53248
  2. 220 poke v+21,1+2
  3. 230 poke v+39,1
  4. 231 poke v+40,1
  5. 240 poke v+0,150
  6. 241 poke v+1,120
  7. 242 poke v+2,120
  8. 243 poke 2040,32
  9. 280 poke 2040,32
  10. 281 poke 2041,33
  11. 300 bw=bw+1
  12. 310 bh=int(bw/256):bl=bw-bh*256
  13. 320 poke v+0,bl
  14. 330 poke v+16,bh
  15. 340 if bw>320 then bw=0
  16. 350 goto 300
  17.